home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / e / sortobj.lha / test.e < prev    next >
Encoding:
Text File  |  1995-02-11  |  1.4 KB  |  48 lines
  1. MODULE '*string','*address'
  2.  
  3. PROC main()
  4.  DEF mystr:PTR TO string,hisstr:PTR TO string,myaddr:PTR TO address,
  5.      heradr:PTR TO address
  6.  NEW mystr.new()
  7.  NEW hisstr.new()
  8.  
  9.  mystr.set('aaaaa')
  10.  hisstr.set('aaaab')
  11.  
  12.  WriteF('''mystr'' = "\s"\n''hisstr'' = "\s"\n',mystr.write(),hisstr.write())
  13.  WriteF('''mystr'' has a length of \d.\n''hisstr'' has a length of \d.\n',mystr.size(),hisstr.size())
  14.  
  15.  WriteF('Is ''mystr'' less than ''hisstr''?\n')
  16.  IF mystr.lt(hisstr) THEN WriteF('Yes\n') ELSE WriteF('No\n')
  17.  
  18.  WriteF('Is ''mystr'' greater than ''hisstr''?\n')
  19.  IF mystr.gt(hisstr) THEN WriteF('Yes\n') ELSE WriteF('No\n')
  20.  
  21.  WriteF('IS ''mystr'' less than or equal to ''hisstr''?\n')
  22.  IF mystr.le(hisstr) THEN WriteF('Yes\n') ELSE WriteF('No\n')
  23.  NEW myaddr.new()
  24.  NEW heradr.new()
  25.  
  26.  WriteF('\nSetting addresses.\n\n')
  27.  
  28.  myaddr.setFname('Trey')
  29.  myaddr.setLname('Van Riper')
  30.  myaddr.setCity('Asheville, NC')
  31.  myaddr.setStreet('19-A Dortch Ave.')
  32.  myaddr.setPhone('(704) 555-8964')
  33.  
  34.  heradr.setFname('Georgia')
  35.  heradr.setLname('Brown')
  36.  heradr.setCity('Dover, AL')
  37.  heradr.setStreet('5 RosyPalm Dr.')
  38.  heradr.setPhone('(803) 555-1234')
  39.  
  40.  WriteF('My Address:\n\s\n',myaddr.write())
  41.  WriteF('Her Address:\n\s\n',heradr.write())
  42.  
  43.  WriteF('Is myaddr greater than heradr?\n')
  44.  IF myaddr.gt(heradr) THEN WriteF('Yes.\n') ELSE WriteF('No.\n')
  45.  WriteF('Is myaddr less than heradr?\n')
  46.  IF myaddr.lt(heradr) THEN WriteF('Yes.\n') ELSE WriteF('No.\n')
  47. ENDPROC
  48.